home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
qmsstins.arc
/
U.HST
< prev
next >
Wrap
Text File
|
1987-09-20
|
819b
|
42 lines
;
; Upload module to HOST.HST
;
top3_:
Writeln " "
Writeln " "
Write "Enter File Name to Upload or [Q] to exit ? "
Getr 6 12
If "$6" = "Q" Re_Menu
Exist $6 YUpload_
Protocol_:
Writeln "Available protocols: [X]modem [C]RC Xmodem [I]modem"
Write " [Y]modem [G]-Ymodem [Q]uit : "
Getr 7 1
If "$7" = "X" do_it
If "$7" = "C" do_it
If "$7" = "I" do_it
If "$7" = "Y" do_it
If "$7" = "G" do_it
If "$7" = "Q" re_menu
Writeln " "
Writeln "Enter one of the following protocols."
Goto protocol_
Do_It:
Writeln "File [$6]"
Writeln "Ready to receive. Press [Ctrl-X] to Abort."
Downld $6 $7
Return
YUpload_:
Writeln "File already exists, try again.."
Goto Top3_
Re_Menu:
Return